home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / dumpg7.lst < prev    next >
File List  |  1995-04-22  |  4KB  |  69 lines
  1. 32000 REM GRAPHICS 7 SCREEN DUMP 
  2. 32001 REM DUMPS IN FULL-PAGE FORMAT 
  3. 32002 REM By Glen G. Hosey 
  4. 32003 REM ...Tacoma, WA 98433 
  5. 32006 REM --------------------------- 
  6. 32007 REM This routine will dump a 
  7. 32008 REM GRAPHICS 7 screen to printer 
  8. 32009 REM in 2 minutes 20 seconds. 
  9. 32010 REM Print size is Width = 6.4" 
  10. 32011 REM ..............Height=10.0" 
  11. 32012 REM Printing is done sideways 
  12. 32013 REM on the paper and will 
  13. 32014 REM fill a full-size page. 
  14. 32015 REM This routine will print in 
  15. 32016 REM three different shades for 
  16. 32017 REM the three colors in GR. 7 
  17. 32018 REM COLOR 0 -- blank lines 
  18. 32019 REM COLOR  -- checkerboard 
  19. 32020 REM ......... pattern 
  20. 32021 REM COLOR  -- vertical lines 
  21. 32022 REM COLOR  -- horizontal lines 
  22. 32023 REM The rotine requires 3417 
  23. 32024 REM bytes f memory, including 
  24. 32025 REM the Mahine Language 
  25. 32026 REM stringand the two print 
  26. 32027 REM string (with all the REMs 
  27. 32028 REM remove). 
  28. 32029 REM This rutine will work as-is 
  29. 32030 REM on GEMNI 10X/15X printers. 
  30. 32031 REM Other rinters may require 
  31. 32032 REM change to print statements 
  32. 32033 REM in lins 32120 and 32150. 
  33. 32034 REM --------------------------- 
  34. 32035 REM This rutine is relocatable 
  35. 32036 REM and wil modify itself 
  36. 32037 REM accordng to the location 
  37. 32038 REM of thestrings. 
  38. 32039 REM ---------------------------- 
  39. 32040 REM Use "GO 32100" to access 
  40. 32041 REM this rutine. 
  41. 32042 REM --------------------------- 
  42. 32100 DIM ML$(42),AA$(384),BB$(384):ZZ=0 
  43. 32110 RESTORE 32200:FOR XX=1 TO 421:READ YY:ML$(XX)=CHR$(YY):ZZ=ZZ+YY:NEXT XX:SCREEN=PEEK(88)+256*PEEK(89) 
  44. 32111 IF ZZ<>61689 THEN ? "DATA ERROR":END  
  45. 32120 SCREEN=SCREEN+40*95:TRAP 32180:CLOSE #5:OPEN #5,8,0,"P:":? #5;CHR$(27);"A";CHR$(8) 
  46. 32130 FOR XX=SCREEN TO SCREEN+39:AA$=CHR$(0):AA$(384)=CHR$(0):AA$(2)=AA$:BB$=AA$ 
  47. 32140 YY=USR(ADR(ML$),ADR(ML$(421,421)),ADR(ML$(46,46)),XX,ADR(AA$),ADR(BB$)) 
  48. 32150 ? #5;CHR$(27);"K";CHR$(128);CHR$(1);AA$:? #5;CHR$(27);"K";CHR$(128);CHR$(1);BB$ 
  49. 32160 NEXT XX 
  50. 32170 GOTO 32170 
  51. 32180 ? "ERROR #";PEEK(195):END  
  52. 32200 DATA 104,104,133,206,104,133,205,160,0,104,145,205,198,205,165,205,201,255,208,2,198,206,104,145,205 
  53. 32210 DATA 104,133,204,104,133,203,104,133,206,104,133,205,104,133,208,104,133,207,162,97,202,208,1,96,177 
  54. 32220 DATA 203,133,209,41,192,208,17,169,0,145,205,200,145,205,200,145,205,200,145,205,160,0,240,65,201 
  55. 32230 DATA 192,208,21,169,240,145,205,200,200,145,205,169,0,136,145,205,200,200,145,205,160,0,240,40,201 
  56. 32240 DATA 128,208,17,169,160,145,205,200,145,205,200,145,205,200,145,205,160,0,240,19,169,192,145,205,200 
  57. 32250 DATA 200,145,205,136,169,48,145,205,200,200,145,205,160,0,165,209,41,48,240,70,201,48,208,14,177 
  58. 32260 DATA 205,9,15,145,205,200,200,145,205,160,0,240,52,201,32,208,25,177,205,9,10,145,205,200,200 
  59. 32270 DATA 145,205,136,177,205,9,10,145,205,200,200,145,205,160,0,240,23,177,205,9,12,145,205,200,200 
  60. 32280 DATA 145,205,136,177,205,9,3,145,205,200,200,145,205,160,0,165,209,41,12,208,17,169,0,145,207 
  61. 32290 DATA 200,145,207,200,145,207,200,145,207,160,0,240,65,201,12,208,21,169,240,145,207,200,200,145,207 
  62. 32300 DATA 136,169,0,145,207,200,200,145,207,160,0,240,40,201,8,208,17,169,160,145,207,200,145,207,200 
  63. 32310 DATA 145,207,200,145,207,160,0,240,19,169,192,145,207,200,200,145,207,136,169,48,145,207,200,200,145 
  64. 32320 DATA 207,160,0,165,209,41,3,240,70,201,3,208,14,177,207,9,15,145,207,200,200,145,207,160,0 
  65. 32330 DATA 240,52,201,2,208,25,177,207,9,10,145,207,200,200,145,207,136,177,207,9,10,145,207,200,200 
  66. 32340 DATA 145,207,160,0,240,23,177,207,9,12,145,207,200,200,145,207,136,177,207,9,3,145,207,200,200 
  67. 32350 DATA 145,207,160,0,24,165,205,105,4,133,205,165,206,105,0,133,206,24,165,207,105,4,133,207,165 
  68. 32360 DATA 208,105,0,133,208,56,165,203,233,40,133,203,165,204,233,0,133,204,76,255,255 
  69.